home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / alf.dd.movie cod (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  537 lines
  1. 1 a=a+1:poke53280,.:poke53281,.:print"[147][208]lease [215]ait"
  2. 3 ifa=1 then load"alf.irq.flsh.o",8,1
  3. 4 poke2,25:sys50000:sys828,49152,"memover1.0+.o"
  4. 5 sys828,57344,"alf.dd.char"
  5. 6 sys828,59392,"alf.dd.spri23"
  6. 7 hi=int(16383/256):lo=16383-hi*256
  7. 8 poke55,lo:poke56,hi:clr
  8. 9 poke53280,.:poke53281,.:poke648,204:print"[147]"
  9. 13 print"[147]"chr$(142)
  10. 29 print"[147]reboot loadstar!!!"
  11. 30 sys828,26959,"alf.dd.scrns3"
  12. 35 sys50000
  13. 37 :
  14. 40 print"[147]":sc=0:dim sx(20),sy(20),s,x,y,r,a,d:poke53265,peek(53265)and223
  15. 41 print"[147]":sc=0:forx=0to16step2
  16. 42 sx(c)=53246+x:pokesx(c),.
  17. 43 sy(c)=53247+x:pokesy(c),.
  18. 44 c=c+1:next
  19. 45 poke53271,.:poke53277,.:poke53248+16,.
  20. 47 poke56576,(peek(56576)and252)or0
  21. 48 poke53272,(peek(53272)and 15)or48
  22. 49 poke53272,(peek(53272)and240)or8
  23. 50 goto 500
  24. 60 :
  25. 75 :
  26. 76 sys49152,26959+sc*1000,52224,1000
  27. 78 sc=sc+1:return
  28. 79 :
  29. 80 :
  30. 81 ifsx(1)=0 then end
  31. 86 forx=stoe step16:a=0
  32. 88 forc=244 to 247 step 1:poke53240,c:fork=1to4:a=a+1
  33. 90 ford=1to10:next:ifx+a=e then return
  34. 91 pokesx(1),x+a
  35. 92 nextk:nextc:nextx
  36. 95 return
  37. 96 :
  38. 100 rem "       [200]i [212]here!          "
  39. 105 pokesy(1),peek(sy(1))+1:forx=stoestep16:a=0
  40. 107 forc=240to243:poke53240,c:forr=1to4
  41. 110 a=a+1
  42. 115 pokesx(1),x+a:up=up+.5
  43. 116 if x+a=e then return
  44. 117 ifup=int(up)then pokesy(1),peek(sy(1))-1
  45. 120 nextr:nextc:nextx:return
  46. 125 :
  47. 126 dd=150:pp=53240
  48. 127 pokepp,176:ford=1todd+30:next
  49. 128 pokepp,175:ford=1todd:next
  50. 129 pokepp,174:ford=1todd:next
  51. 130 pokepp,175:ford=1todd:next
  52. 131 pokepp,176:ford=1todd+50:next
  53. 132 return
  54. 150 next
  55. 200 :
  56. 201 ifsx(1)=0then end
  57. 206 forx=stoestep-16:a=0
  58. 208 forc=219to222step1:poke53240,c:fork=1to4:a=a-1
  59. 210 ford=1to10:next:ifx+a=ethenreturn
  60. 211 pokesx(1),x+a
  61. 212 nextk:nextc:nextx
  62. 215 return
  63. 300 :
  64. 305 pokesy(1),peek(sy(1))+1:forx=stoestep-16:a=0
  65. 307 forc=180to177step-1:poke53240,c:forr=1to4
  66. 310 a=a-1
  67. 315 pokesx(1),x+a:up=up-.5
  68. 316 ifx+a=ethenreturn
  69. 317 ifup=int(up)thenpokesy(1),peek(sy(1))-1
  70. 320 nextr:nextc:nextx
  71. 330 return
  72. 500 :
  73. 510 poke53269,255 : rem sprites on
  74. 511 forx=0to7:poke53287+x,1:next
  75. 520 :
  76. 550 :
  77. 551 :
  78. 555 rem "[201]t seems that we like colons."
  79. 557 :
  80. 558 :
  81. 559 rem "yep ... we do.  :::::::::::::"
  82. 560 pokesy(1),172
  83. 562 gosub75
  84. 565 s=10:e=133:gosub 80
  85. 568 :
  86. 570 s=e:e=206:gosub100
  87. 571 :
  88. 572 gosub125
  89. 575 p$=""
  90. 576 printp$"[157][157] ":ford=1to90:next:printp$"[157][157] ":ford=1to90:next:printp$"[157][157][145]>"
  91. 578 c$="[176][157][173][192][145][157][192][192][157][192][192][145][157][192][192][157][192][192][145][157][192]"
  92. 580 printp$"[157][179][157][179]"
  93. 581 printp$"[157][157]"left$(c$,4)
  94. 582 printp$"[157][157][157]"left$(c$,8)
  95. 583 :
  96. 584 :
  97. 585 poke53241,239
  98. 586 pokesy(2),135
  99. 588 forx=220 to 212step-1
  100. 590 pokesx(2),x
  101. 591 next
  102. 595 pokesy(2),.:pokesx(2),.
  103. 596 poke53240,238
  104. 597 forx=peek(sx(1))to1step-2
  105. 599 pokesx(1),x:next
  106. 600 :
  107. 610 :
  108. 611 :
  109. 615 gosub75
  110. 620 poke53264,1
  111. 621 forx=100to0step-2
  112. 623 pokesx(1),x:next
  113. 630 poke53264,0
  114. 632 forx=255to45step-2
  115. 635 pokesx(1),x:next
  116. 640 fory=peek(sy(1))to147
  117. 645 pokesy(1),y
  118. 647 next
  119. 650 poke53241,239:pokesx(2),53:pokesy(2),148:pokesx(1),50
  120. 651 poke53240,175
  121. 652 fory=147to255step3:pokesy(1),y:next
  122. 653 pokesy(2),.:pokesx(2),.
  123. 670 :
  124. 671 :
  125. 675 :
  126. 680 forr=1to3:print"[147]":gosub75
  127. 685 pokesx(1),170:poke53240,237
  128. 690 fory=0 to 255stepr*2:pokesy(1),y:next
  129. 691 sc=sc-1:next
  130. 700 :
  131. 701 :
  132. 702 sc=sc+1
  133. 705 gosub75:pokesx(1),160
  134. 706 fory=0to199step6:pokesy(1),y:next
  135. 724 pokesy(1),199
  136. 725 forx=237to231step-1
  137. 730 ford=1to10:next
  138. 740 poke53240,x:next:ford=1to450:next
  139. 741 :
  140. 742 pokesx(2),163:pokesy(2),200
  141. 745 forx=173 to 167 step-1
  142. 746 ford=1to25:next
  143. 747 poke53241,x
  144. 748 next
  145. 749 ford=1to340:next
  146. 753 poke53240,176:pokesy(1),193
  147. 755 :
  148. 760 s=160:e=216:gosub80:gosub125
  149. 765 :
  150. 766 :
  151. 767 :
  152. 770 poke53242,239:poke53269,251
  153. 771 pokesy(3),149:poke53264,4:poke53269,255
  154. 775 forx=90 to 0 step-1
  155. 780 pokesx(3),x:ford=1to7:next:next:poke53264,0
  156. 781 forx=255 to 219 step-1
  157. 782 pokesx(3),x:ford=1to7:next:next:poke53243,230
  158. 785 pokesx(4),220:pokesy(4),160
  159. 786 forx=229 to 227 step-1
  160. 787 poke53243,x:next
  161. 788 poke53271,8::poke53242,248:pokesy(4),166
  162. 790 pokesy(3),149
  163. 795 poke53240,225:pokesy(1),peek(sy(1))-1
  164. 800 forx=1to125
  165. 802 rt=53264
  166. 805 s=1:gosub850:s=3:gosub850:s=4:gosub850
  167. 806 nextx
  168. 810 goto 900
  169. 850 pokesx(s),peek(sx(s))+1:ifs(s)=0 then gosub 875
  170. 855 return
  171. 875 ifpeek(sx(s))=255 then pokesx(s),0:pokert,peek(rt)+2^(s-1):s(s)=1
  172. 880 return
  173. 900 forx=1to4:pokesx(x),0:next:pokesx(4),6:pokesx(3),5
  174. 910 poke53264,.:dc=72:forr=1to4:pokesy(r),peek(sy(r))-dc:next
  175. 920 gosub 75
  176. 930 forx=1to132
  177. 935 s=1:gosub850:s=3:gosub850:s=4:gosub850
  178. 936 nextx
  179. 940 poke53241,250
  180. 950 forx=1to29
  181. 951 fors=1to4
  182. 955 pokesx(s),peek(sx(s))+2
  183. 956 pokesy(s),peek(sy(s))+1
  184. 960 next
  185. 961 next
  186. 966 poke53243,250
  187. 968 poke53242,239
  188. 969 poke53240,237
  189. 970 forx=peek(sy(1))to255:pokesy(1),x:next
  190. 980 ford=1to500:next
  191. 990 ford=1to4:pokesx(d),.:pokesy(d),.:next
  192. 1000 c$(1)="uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu"
  193. 1001 c$(2)="tttttttttttttttttttttttttttttttt"
  194. 1003 c$(3)="ssssssssssssssssssssssssssssssss"
  195. 1004 c$(4)="rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr"
  196. 1005 c$(5)="qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq"
  197. 1006 c$(6)="pppppppppppppppppppppppppppppppp"
  198. 1007 c$(7)="oooooooooooooooooooooooooooooooo"
  199. 1008 c$(8)="nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn"
  200. 1010 p$="":gosub75
  201. 1012 printp$;c$(1)
  202. 1020 pokesx(1),175
  203. 1025 forx=0 to 150:pokesy(1),x:next
  204. 1030 pokesy(1),143:gosub125
  205. 1035 poke53241,224:pokesx(2),235:pokesy(2),130
  206. 1040 forx=1to3:poke53241,224:ford=1to160:next
  207. 1045 poke53241,250
  208. 1046 ford=1to160:next
  209. 1049 next:
  210. 1050 poke53242,223:poke53277,4
  211. 1051 pokesx(3),175:pokesy(3),120
  212. 1055 ford=1to1300:next
  213. 1060 poke53242,250
  214. 1068 rem okey, dokey, pokie.?..pokey?
  215. 1075 rem -- what is a pokey?
  216. 1076 rem - is it a rare oofoo bird?
  217. 1077 rem ....the story continues...
  218. 1078 pokesy(1),peek(sy(1))+1
  219. 1079 rem - it is a  oodoo- aka jim row
  220. 1080 s=175:e=160:gosub200
  221. 1085 forx=1to51
  222. 1090 forr=2to8step2:printp$c$(r);
  223. 1095 poke53240,r/2+218
  224. 1096 ford=1to10:next
  225. 1100 nextr
  226. 1105 ifpeek(sx(1))+4>255thenpoke53264,1:pokesx(1),.
  227. 1110 pokesx(1),peek(sx(1))+2
  228. 1111 next
  229. 1114 poke53240,216
  230. 1115 forx=1to5:pokesx(1),peek(sx(1))+1:pokesy(1),peek(sy((1)))+1:next
  231. 1116 forx=1to4:pokesx(1),peek(sx(1))+1
  232. 1117 pokesy(1),peek(sy(1))+2:next
  233. 1120 fory=peek(sy(1))to200step4
  234. 1130 fora=215 to 218
  235. 1135 poke53240,a:ford=1to10:next
  236. 1136 pokesy(1),peek(sy(1))+2
  237. 1140 next:pokesx(1),peek(sx(1))+2:pokesx(1),peek(sx(1))-2
  238. 1145 next
  239. 1150 rem "-----  [200]i [212]here!  ----"
  240. 1200 poke53264,.:pokesy(1),.:pokesx(1),175
  241. 1205 gosub75
  242. 1220 fory=peek(sy(1))to158step8
  243. 1230 fora=215 to 218
  244. 1235 poke53240,a:ford=1to10:nextd
  245. 1236 pokesy(1),peek(sy(1))+2:ifpeek(sy(1))=>158 then 1246
  246. 1240 nexta:pokesx(1),peek(sx(1))+2:pokesx(1),peek(sx(1))-2
  247. 1245 nexty
  248. 1246 poke38,104:poke39,104:poke40,76:poke41,126:poke42,166:sys38
  249. 1247 rem --- oogie poogie ? ---
  250. 1248 rem -- ask the doctor ---
  251. 1249 rem - it be a bird. - chill out! -
  252. 1250 forr=1to3
  253. 1251 fory=1to5
  254. 1255 fora=215 to 218
  255. 1260 poke53240,a
  256. 1261 ford=1to5:nextd
  257. 1265 nexta
  258. 1266 nexty:ford=1to120:next
  259. 1267 nextr
  260. 1270 pokesy(1),peek(sy(1))-5:gosub125
  261. 1300 :
  262. 1302 :
  263. 1305 a$="ghghghghghghgh[146][163]"
  264. 1306 b$="ghghgh[146]         [157][157][157][157][157][157][157][157][157]ghghghghghghgh"
  265. 1307 forx=1tolen(b$)
  266. 1310 printleft$(a$,x)
  267. 1320 printleft$(b$,x)
  268. 1321 ford=1to30:next
  269. 1325 next
  270. 1355 gosub125: remlook around again
  271. 1360 s=peek(sx(1)):e=s+40:gosub80
  272. 1370 pokesy(1),peek(sy(1))+1:s=e:e=s-40:gosub200
  273. 1375 s=e:e=1:gosub300
  274. 1400 :
  275. 1402 gosub75
  276. 1405 a$="":a1$="ghghghghg"
  277. 1406 b$="":b1$="ghghghghgh"
  278. 1410 forx=44tolen(b$+b1$)
  279. 1411 printleft$(a$+a1$,x)
  280. 1412 printleft$(b$+b1$,x)
  281. 1430 next
  282. 1450 pokesx(1),80
  283. 1451 pokesy(1),187:poke53264,1
  284. 1460 s=80:e=0:gosub300:poke53264,0
  285. 1465 s=255:e=246:gosub300
  286. 1475 print"[165][157][157][164][165]"
  287. 1477 pokesy(1),peek(sy(1))+1
  288. 1480 ford=1to100:next
  289. 1485 a1$="[146]        "
  290. 1486 b1$="[146]          "
  291. 1490 forx=44tolen(b$+b1$)
  292. 1491 printleft$(a$+a1$,x)
  293. 1492 printleft$(b$+b1$,x)
  294. 1495 next
  295. 1500 s=peek(sx(1)):e=s-10:g